home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / addchars.bed < prev    next >
Text File  |  1997-12-03  |  594b  |  48 lines
  1. /*
  2. ** $VER: AddChars.bed 1.0 (02.01.96)
  3. **
  4. ** Add characters at the start of lines
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10. PARSE ARG ch
  11.  
  12.  
  13. IF ch = "" THEN DO
  14.     RequestStr PROMPT '"Chars to add?"'
  15.     IF RC ~= 0 THEN EXIT 5
  16.     ch = RESULT
  17. END
  18.  
  19. SetStatusBar "Adding characters..."
  20.  
  21. GetBlkDims
  22. PARSE VAR RESULT mode . start . end
  23.  
  24. SetDisplayLock ON
  25. SetBookmark 0
  26.  
  27. IF mode=ON THEN DO
  28.     MarkBlk
  29.     Move start 1
  30.     num = end-start+1
  31. END; ELSE DO
  32.     MoveSOF
  33.     num = 0
  34. END
  35.  
  36. RecordMacro Quiet
  37. MoveSOL
  38. Text '"' || ch || '"'
  39. MoveDown
  40. EndMacro
  41.  
  42. PlayMacro num
  43.  
  44. MoveBookmark 0
  45. ClearBookmark 0
  46.  
  47. SetDisplayLock OFF
  48.